home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / EDITORS / ZAP / !Zap / !Run < prev    next >
Text File  |  1996-11-06  |  2KB  |  51 lines
  1. |
  2. | !Run file for Zap
  3. | (c) D.H.Symes 1991-1996
  4. |
  5.  
  6. | Set up directory paths and load sprites
  7. Set Zap$Dir <Obey$Dir>
  8. Set Zap$3rdParty <Zap$Dir>.3rdParty
  9. Set ZapFonts$Path <Zap$Dir>.Fonts.
  10. Iconsprites <Zap$Dir>.!Sprites
  11.  
  12. | Find operating system version
  13. SetEval Zap$OSVsn 350
  14. RMEnsure UtilityModule 3.50 SetEval Zap$OSVsn 300
  15. RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200
  16. | To turn off dynamic areas uncomment the following line
  17. | SetEval Zap$OSVsn 300
  18.  
  19. | Claim file types and taskwindows
  20. Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0
  21. Set Alias$Taskwindow "Basic -quit <Zap$Dir>.Code.Taskwindow "
  22. Set OLEServer$Type_fff -N Zap -R /<Zap$Dir>
  23.  
  24. | Check Zap isn't already running
  25. Set Zap$Temp "loaded"
  26. RMEnsure Zap 0.01 SET Zap$Temp "notloaded"
  27. IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded
  28. IF Zap$Temp="loaded" THEN %Basic -quit <Zap$Dir>.Code.Check
  29.  
  30. | The following lines are maintained by the ZapSetup application. Altering
  31. | them directly may confuse it!
  32.  
  33. | ZapSetup config start
  34. | Default options
  35. Set Zap$Templates <Zap$Dir>.Templates.Ebourne
  36. Set Zap$Menus     <Zap$Dir>.Menus
  37. Set Zap$Keys      <Zap$Dir>.Keys
  38. Set Zap$Options   <Zap$Dir>.!Config
  39. Set Zap$External  <Zap$Dir>.External
  40. | ZapSetup config end
  41.  
  42. | Force template file to Symes if on Risc OS 2
  43. IF Zap$OSVsn<300 THEN Set Zap$Templates <Zap$Dir>.Templates.Symes
  44.  
  45. | Load modules and start Zap task (possibly loading a file).
  46. | Do NOT load extension modules here, see the External file.
  47. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  48. RMEnsure ZapRedraw   0.30 RMLoad <Zap$Dir>.Code.ZapRedraw
  49. RMEnsure HidePointer 0.15 RMLoad <Zap$Dir>.Code.HidePtr
  50. RMLoad <Zap$Dir>.Code.Zap
  51. Zap_Desktop %0